Top 10k strings from Video Spectrum - Issue 03 (1984)(Video Spectrum)(16k)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
15 ;"______________________________"
15 ;"Revista de Software"
14 ;"VIDEOSPECTRUM"
9
8
7 ;"c/Zabaleta, 36 - 28002 MADRID"
7 ;"Tfno. (91) 413 47 99"
7 ;"SUSCRIBASE TELEFONICAMENTE":
7 ;"CONCURSO":
7 ;"4)Envielo a: VIDEOSPECTRUM"
7 ;"3)Si es elegido ganara 5000 pts"
7 ;"2)Mandenoslo en un cassette"
7 ;"1)Realice un programa original"
7 ;"**********"
7 ;"(contestador automatico 24 h.)"
6
4 LOS SIGUIENTES SON GRAFICOS
4 GRAFICOS PREDEFINIDOS
4 GRAFICOS NORMALES
4 G$(W,S)="1"
4 ;"n o p q r s t u v w x y z"
4 ;"a b c d e f g h i j k l m"
4 ;"PULSE UNA TECLA PARA CONTINUAR";
4 ;" "
4
3 ;" ":
2 UTILIZA SOLO ""1"", ""X"" O ""2""
2 SONIDO AL TECLEAR
2 LOAD A CHR$
2 LINEAS 60 Y 70 IMPRIMEN INTRUCIONES DEL MANEJO DEL PROGR.
2 LECTOR DE GRAFICOS
2 INSTRUCCIONES
2 GUARDA CHR$
2 GRABAR EN CASSETT LOS GRAFICOS CONSTRUIDOS
2 G$(W,S)="0"""
2 G$(A)="00000000"
2 DIRECCIONES DE LOS CARACTERES DEL NEW SET.
2 DIRECCIONES
2 CRETA
2 CHANGE CHR$ BIT
2 ="c")-(l>0
2 ;"________________________________"
2 ;"VIDEOSPECTRUM":
2 ;"S=GUARDA"
2 ;"Por JOSE MANUEL CAGIAO RODRIGUEZ":
2 ;"N O P Q R S T U V W X Y Z"
2 ;"L=CARGA";
2 ;"L M N O P Q R S T U"
2 ;"GRABANDO";
2 ;"G=GRABAR";
2 ;"COMANDO";
2 ;"C=CAMBIA";
2 ;"C/Zabaleta, 36 Madrid-2"
2 ;"B=BORRA";
2 ;"A B C D E F G H I J K"
2 ;"A B C D E F G H I J K L M"
2 ;"8=DERECHA";
2 ;"7=ARRIBA";
2 ;"6=ABAJO"
2 ;"5=IZQUIERDA";
2 47 GRAFICOS PREDEFINIDOS. AUTOR JOSE MANUEL CAGIAO R. APARTADO 2144 LA CORUNA
2 *### GRID CHR$ (CUADRO GIGANTE PARA CREACCION DE GRAFICOS ###*
2 )="0")+("0"
2 (1) NEW SET (2)";W
2 "QUE CARACTER ";Q$:
2 "NOMBRE ";W$
2 "LEER CHR$(1) NEW SET(2)";H:
2 "GUARDA EN: USR (1) NEW SET (2)";N
2 "CUAL NEW SET";Q$:
2 "CUAL CHR$? ";
2 "CUAL CHR$ ";C$:
2 "+"C$")+A,
2 FRANCISCO ROMERO ROYO
2
2
1 vac=vac*(vac<25
1 v=v+(a$="a")-(a$="q")
1 sd=sd+(145
1 punt=punt+bon:
1 punt=punt+1000
1 punt=punt+10
1 pant=pant+1
1 n=n+(a>n)-(a<n)
1 n$=a$+b$+c$
1 m=m+(b>m)-(b<m)
1 m$=a$+b$+c$
1 l$=a$+b$+c$
1 k$=a$+b$+c$
1 k$="MINOTAURO"
1 j$="SE TE HA ACABADO EL TIEMPO":
1 j$="SE HAN ACABADO TUS NAVES":
1 h=h+(a$="p")-(a$="o")
1 c$=" "
1 b=b-(e$="0")+(e$="9"):
1 b=b+(e$="0")-(e$="9")
1 b$=m$+n$+m$+n$:
1 b$=b$+b$+b$+b$+b$+b$+" "
1 b$=";><;<>;7CECB@>=>;7<969;<>;CECBCB@?@><;<;<;9>=<;7;><9<@>;779;<>@BCBCBECBCB@>=>;>;7<9<96989:;<=>;>;CGBC?@<977;97997"
1 a=a-(e$="q")+(e$="1"):
1 a=a+(e$="q")-(e$="1")
1 a$=k$+l$+k$+l$:
1 a$=a$+a$+a$+a$+a$+a$+" "
1 a$="q")+("
1 a$="p")+("
1 a$="a")+("
1 a$="@2222628<2222226286244446282222222222226114444:222222262222222222222222222222222822222222222222228222222262222288"
1 ______________________
1 VUELTA A MOVIMIENTO ALEATORIO O AL PERSECUTORIO
1 TZX por Manuel Gomez Amate
1 TIENES ";A;" ACIERTOS EN COLUMNA ";CO
1 SUMARIO o
1 RUTINA DE PAUSA
1 RUTINA DE EMPUJE
1 RUTINA DE CAPTURA
1 QUINIELAS D$
1 PULSA UNA TECLA PARA CONTINUAR
1 PULSA PARA SEGUIR
1 PRINCIPIO Y DIBUJO DE LA PANTALLA
1 PRESENTACION
1 PREPARATE PARA GRABAR EL LISTADO PRIMERO
1 PREPARA EL CASSETTE Y
1 PASAMOS A OTRO BOLETO? (PULSA)
1 PARA PROTEJER LAS DIRECCIONES DEL NUEVO SET DE UN BORRADO POR NEW.
1 O$=" "
1 MOVIMIENTO PERSECUTORIO
1 MOVIMIENTO NAVE
1 MOVIMIENTO ALEATORIO
1 MINE-FIELDk
1 LOAD "" CARGARA EL PROGRAMA PRINCIPAL,BORRANDOSE ESTE Y SUS VARIABLES
1 LO LOGRASTE
1 LLUIS DOMENECH
1 LISTADO 1; PRESENTACION Y GRAFICOS
1 LEE SET ROM
1 LEE LA ROM
1 JORNADA Y BOLETOS
1 INVASION
1 INICIACION VARIABLES
1 I$=I$+"TODOS LOS PARTIDOS LOS PUEDES JUGAR A ""FIJO"", ""DOBLE"" O ""TRIPLE"". UNA VEZ APAREZCA EL BOLETO EN LAPANTALLA, DEBERAS COPIARLO EN ELDEL PATRONATO. EL SISTEMA DE COMPROBACION ES ""AUTOMATIC0"". "
1 I$="ESTE ES UN PROGRAMA PARA LA CON-FECCION DE QUINIELAS CON UN SIS-TEMA DE COMBINACION TOTALMENTE ALEATORIO. PRIMERO INTRODUCE EL NUMERO DE JORNADA, Y DESPUES CUANTOS BOLE-TOS QUIERES JUGAR (CADA BOLETO SON ""8""COLUMNAS)."
1 GRABACION DEL LISTADO 1
1 FINAL PARTIDA
1 FINAL DE PANTALLA
1 ESTE BLOQUE COPIA EL SET DE CARACTERES DE LA ROM EN LAS ULTIMAS DIRECCIONES DE LA RAM.
1 ESCRIBE EN LA RAM
1 EDITORIAL
1 DIBUJO BOLETO
1 DESCONECTA ""EAR""
1 DEMASIADO LARGO
1 DATOS DE LOS GRAFICOS
1 Castellano
1 CURSOR EN
1 COPIA EL SET DE LA RON EN LA RAM
1 COMPROBACION DE SIGNO
1 COMPROBACION DE CHOQUESE IMPRESION DE DATOS
1 CINTA 03 Cara A
1 CARGA DEL LISTADO 2
1 C0MPROBACION
1 BUENA SUERTE!!!
1 BUENA SUERTE
1 BUCLE PRINCIPAL
1 BORRA LA VARIABLE DIMENSIONADA A(776) POR HABER CUMPLIDO SU COMETIDO Y YA NO SER NECESARIA.
1 ATROPELLARN
1 ACONDICIONAMIENTO DEL PROGRAMA AL NUEVO SET
1 ACONDICIONA PARA QUE EL PROGRAMA TRABAJE CON EL NUEVO SET
1 >."''"CUANDO COJAS TODOS LOS <
1 >, HAS DE SALIR DEL LABERINTO."
1 > HASTA QUE DESAPAREZCAN,MOVIENDOTE CON:"';" <9> (
1 > DEL PISO ";pant
1 ;k$;k$;k$;k$;l$;l$;l$;l$;m$;m$;m$;m$
1 ;;"GRABANDO ";
1 ;,,">>> PONGA EN MARCHA EL CASSETTE",,,,,
1 ;"se recibio un programa de ar- chivo de datos y este mes otro siendo ambos igual de intere- santes, nos veriamos obligados a ser muy injustos, ya que la decision estaria basada en la cara y cruz de una moneda. Tal y como hemos concebido el con- curso, seria premiado uno y al cabo de algunos meses (para e- vitar ser repetitivos con los"
1 ;"que vuelva a ser elegido meses despues, o incluso al siguien- te. Si un lector ha ganado, con el mismo programa enviado a nues- tra publicacion, otro concurso convocado por revistas, socie- dades, etc. le rogamos nos lo comunique rapidamente, pues de no hacerlo, y es publicado en VIDEOSPECTRUM, originaria pro- blemas de plagio, de los que en"
1 ;"q a o p"
1 ;"programas), el otro. Por todo ello, nos vemos en la obligacion de retener en nues- tro poder las cintas - no man- tenemos correspondencia debido al elevado numero de partici- pantes- pues pueden ser agra-"
1 ;"ciados en numeros sucesivos. Por otro lado, el hecho de que un lector, que haya presentado varios programas, sea premiado por uno de ellos, no implica"
1 ;"absoluto nos hacemos responsa- bles. A fin de facilitar nuestra la- bor y evitar errores, rogamos que los programas esten graba- dos varias veces en la cinta y que esta sea enviada dentro de su estuche, adjuntando una no- ta explicativa de su funciona- miento lo mas extensa posible. Aunque nuestro concurso se ti- tule 'en BASIC', tambien seran considerados los realizados en codigo maquina"
1 ;"______________________________":
1 ;"VIDAS ^^^"
1 ;"VAMOS A COMPROBAR LAS APUESTAS"
1 ;"UNA PUNTUACION";
1 ;"Tfnos. 4722353 4720698"
1 ;"Tfnos. 4134664 4134799 4134849"
1 ;"Tfno. (93) 2014433":
1 ;"Tfno. (91) 4134664"
1 ;"TU PUNTUACION ES: ";sc
1 ;"TIEMPO:";tp
1 ;"TIEMPO:";
1 ;"TIEMPO 0":
1 ;"TIEMPO ";
1 ;"TE QUEDAN ";nav;" NAVES ":
1 ;"SIGNO impresores"
1 ;"SI NO ES ASI, INTENTALO OTRA VEZ LA PROXIMA SEMANA"
1 ;"SI LOGRA ANIQUILAR TODO UN ES- CUADRON, APARECERA EL SIGUIEN- TE, MAS CERCA DE SU POSICION.";
1 ;"Revista de Software":
1 ;"ROMERO";
1 ;"REDACCION Y SUSCRIPCIONES:"
1 ;"RECORD: ";rec;" ";k$:
1 ;"RECORD!!":
1 ;"RAPIDO,SAL FUERA ":
1 ;"R E V I S T A";
1 ;"QUIERES PROBAR OTRA VEZ? (S O N)"
1 ;"QUIERES INSTRUCCIONES? (S/N)"
1 ;"Por LLUIS DOMENECH I ARNAL":
1 ;"Por FRANCISCO ROMERO ROYO"
1 ;"PUNTUACION ";sc
1 ;"PUNTUACION ";sc
1 ;"PUNTOS:";punt;
1 ;"PUNTOS:";
1 ;"PUNTOS ";
1 ;"PULSE UNA TECLA PARA CONTINUAR":
1 ;"PULSE ";
1 ;"PULSA PARA CONTINUAR":
1 ;"PULSA EL NUMERO DE LA OPCION"
1 ;"PULSA ";
1 ;"PULSA ""s"" PARA SEGUIR"
1 ;"PULSA ""RECORD"" Y LUEGO CUALQUIER";
1 ;"PUBLICIDAD:"
1 ;"PUBLICIDAD BARCELONA:"
1 ;"PROGRAMAS ":
1 ;"POR F.";
1 ;"PONGA EN PLAY EL CASSETT"
1 ;"PON TU NOMBRE";
1 ;"POLYGRAM SERVICIOS S.A."
1 ;"PAUSA > ""SPACE"" SEGUIR > ""s""";
1 ;"PARE EL CASSETT"
1 ;"PARA LA CINTA, PERO NO REBOBINES"
1 ;"PARA EL CASSETTE":
1 ;"PARA DESPLAZARSE A LA IZQUIER- DA, PULSE Z; A LA DERECHA, C."
1 ;"OTRA PARTIDA ? (s/n)"
1 ;"NAVES:";
1 ;"Mercedes Borastero"
1 ;"Ma. Natividad Fdez. Saavedra"
1 ;"MAXIMA PUNTUACION HOY ";hi
1 ;"LOS ALIENIGENAS LE HAN INVADIDO";
1 ;"Jose Luis Diez"
1 ;"JORNADA NUM. ";JO;
1 ;"IMPRIME:"
1 ;"IMPIDA QUE LOS ALIENIGENAS AL- CANCEN LA POSICION OCUPADA POR SU NAVE.";
1 ;"HAS VACIADO EL LABERINTO"
1 ;"HAS DE EMPUJAR A LOS <
1 ;"HA PERDIDO";
1 ;"GRABAMOS EL BOLETO?(S/N)"
1 ;"GRABACION REALIZADA":
1 ;"Fco Javier Fdez. Saavedra"
1 ;"FIN DEL JUEGO"
1 ;"FABRICADO POR:"
1 ;"Espera un poco mientras se graba":
1 ;"En primer lugar, debemos indi- car que, en contra de lo que muchos lectores piensan, no se trata de premiar los mejores programas, segun nuestro pare- cer, recibidos cada mes, sino que de la totalidad de los en- viados a nuestra redaccion, e- legimos los mas idoneos. Si, por ejemplo, el mes pasado"
1 ;"ESPERE UN MOMENTO";
1 ;"ESPERE UN MOMENTO"
1 ;"EN BLANCO EN EL CASSETTE.";
1 ;"EL JUEGO CONSISTE EN ATROPELLAREL MAXIMO NUMERO DE PEATONES EN EL TIEMPO PREFIJADO."
1 ;"EL CONCURSO EN BASIC";
1 ;"EDITA: GEASA"
1 ;"Debido al elevado numero reci- bido de cintas con programas y de cartas con cuestiones rela- tivas al concurso en BASIC, se hace necesario dedicar este e- ditorial al mismo, para resol- ver todas las dudas."
1 ;"DISTRIBUYE:"
1 ;"DISPREN, S.A."
1 ;"DIRECTOR:"
1 ;"DESTRUYALES DISPARANDO MISILES POR MEDIO DE LA TECLA 'M'."
1 ;"DESCONECTA ""EAR"" Y PON UNA CINTA";
1 ;"D E S O F T W A R E"
1 ;"COMPOSICION:"
1 ;"COLUMNA ";CO:
1 ;"CARGAMOS OTRO BOLETO...
1 ;"C/Pacorro, 14 Madrid-19"
1 ;"C/Muntaner, 200 Barcelona-36"
1 ;"C/Albasanz, 27 Madrid"
1 ;"BRAVO!!!!!!!";
1 ;"BOLETO "
1 ;"ATROPELLAR"
1 ;"ADMINISTRACION:"
1 ;"ACIERTOS ";A:
1 ;"A VER SI LO CONSIGUES EN EL PISO";
1 ;"A CONTINUACION PULSA ""RECORD"" ENEL CASSETTE Y CUALQUIER TECLA EN EL ORDENADOR."
1 ;"1.- CONFECCION QUINIELA 2.- COMPROBACION 3.- TERMINAR"
1 ;"---SUMARIO---";
1 ;"---EDITORIAL---";
1 ;"----------------
1 ;"*MENU* ======"
1 ;"***SUMARIO***":
1 ;"***QUINIELAS***":
1 ;"***INVASION***":
1 ;"***ATROPELLAR***":
1 ;"***47GPD-48Kb***":
1 ;"***47GPD-16Kb***":
1 ;"";f$;"""";
1 ;"""PLAY""";
1 ;"!!HAS CONSEGUIDO";
1 ;" Y LUEGO CUALQUIER";
1 ;" PARA JUGAR ";
1 ;" OOOOOOOOOOOOOOOOOOOOO":
1 ;" OOOOOOOOOOOOOOOOOOOO O O O O O OOOOOOOOOOOOOO O O O O O O O O O O OOOOOOOOOOOO O O O O O O OOO O OOOO O O O O O O O O O O O OOOO O O O O O O O O O OOOOOOO O"
1 ;" OOOOOOOOOOOOOOOOOOOO O O"
1 ;" O OOO OOO OOO OOO O O O O O O O":
1 ;" O O O O O O OOOOO OO O OOOOO O O O O O O O O OOOOO OO OOOOOOO O O O O O O O OOOOOOOO OOOOO O O O O O O O O O OOO OOO OOOO O O O O O O OOOOOOOOOOOOOOOOOOOO"
1 ;" O O OOOOOOOOOOOOOOOOOOOO"
1 ;" O O O OOO OOO OOO OOO O O OOO OOO OOO OOO O O OOO OOO OOO OOO O":
1 ;" O O O O OOOOOOOOOOOOOOOOOOOO"
1 ;" HAS LOGRADO DESTRUIR TODOS LOS <
1 ;" Grabacion realizada: grabe el listado segundo"
1 ;" ESPERO QUE TENGAS
1 ;" PON EN MARCHA EL CASSETTE "
1 ;" ESTE ERA TU ULTIMO BOLETO..."
1 ;" FINAL DE LA COMPROBACION ":
1 ;" ":
1 ;" SUERTE "
1 ;" ":
1 ;" ":
1 ;" "
1 :
1 47GPD-48KbM
1 47GPD-16Kb|
1 47GPD-16Kb
1 47 GRAFICOS PREDEFINODOS JOSE MANUEL CAGIAO R. APARTADO 2144 LA CORUNA
1 300 ptas (1'80 eur)
1 0000000011111110000100000001000000010000000100000001000000000000h
1 0000000000000000000000000000000000000000000000000000000000000000
1 .D.L.: M.38691-1984
1 -sd)*(e$="q")
1 -sd)*(e$="9")+(146
1 -sd)*(e$="1")+(147
1 -sd)*(e$="0")+(148
1 );x;". ";n$(x):
1 )";';"PERO !CUIDADO!,PUEDE ACABARSE ELTIEMPO (MORTAL) O PUEDEN COGERTE LOS <
1 )"';" <Q> (
1 )"';" <1> (
1 )"';" <0> (
1 "SOLFEO Aprenda la escala"
1 "SALTARIN Salte con cuidado"
1 "RUBICUBO Rompecabezas"
1 "QUINIELAS Acierte los 14"
1 "Pulsa 'ENTER' para empezar ";
1 "PARTIDO";P$
1 "OVNI Derribe platillos"
1 "NUMERO DE JORNADA? ";JO
1 "NUM.BOLETOS A COMPROBAR ";BC
1 "MINE-FIELD !Atencion: minas!"
1 "INVASION Impida su ataque"
1 "INTRODUCE LOS SIGNOS ";S$;W$:
1 "INTRODUCE EL SIGNO ";S$:
1 "INTRODUCE EL RESULTADO ";R$
1 "EDITORIAL"
1 "ECUA Matematicas"
1 "DESEA JUGAR OTRA PARTIDA ? (S/N)";n$
1 "CUANTOS BOLETOS QUIERES JUGAR?";BO
1 "CRONO-DESP Reloj multiuso"
1 "CRETA En los laberintos"
1 "ATROPELLAR Menos peatones"
1 "ARCHIVADOR Datos ordenados"
1 "APUESTA (""F"",""D"",""T"") ";R$
1 "47GPD-48Kb Graficos para 48K"
1 "47GPD-16Kb Graficos para 16K"
1 ""F""(FIJO)""D""(DOBLE)""T""(TRIPLE)
1 " ESCRIBA EL NUMERO DEL PROGRAMA QUE DESEE: ";c
1 !Revista de Software VideoSpectrum
1 PARA IMPIDIR LA ESCRITURA EN MINUSCULAS, ESTANDO ESTAS RESERBADAS PARA SU USO COMO CARACTERES
1 NUEVA DIRECCION DEL SET DE CARACTERES
1 COPIA SET EN RAM
1 1984 F. ROMERO ROYO"
1 GRABACION DEL LISTADO SEGUNDO
1 QUINIELAS
1 PULSA PARA TERMINAR
1 EN LA JORNADA NUM. ";JO
1 s
1